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INTRODUCTION 


The  areas  of  the  l604  JOVIAL  conqpller  described  In  this  document  are  Isolated 
because  of  their  unique  machine  (configuration)  emd  system  dependence.  These 
areas  undergo  the  most  drastic  changes  when  the  compiler  Is  treuisferred  from 
the  DASA  program  production  system  to  any  other  system. 

The  first  chapter  describes  the  routines  that  provide  compool  sensitivity. 

These  routines  expect  the  conqpool  to  be  In  a  specific  format.  Furthermore, 
some  of  the  rules  that  govern  these  routines  (e.g.,  all  compool  tables  are  con¬ 
sidered  rigid  length)  are  germane  only  to  the  production  of  programs  for  the 
DASA  system. 

The  second  chapter  describes  the  routines  that  process  direct  code.  These  rou¬ 
tines  reflect  the  jMurtlcular  assembler  (modified  CODAP  0)  and  the  preprocessor 
that  are  used  to  produce  programs  for  the  DASA  system. 

The  third  chapter  describes  the  routines  that  process  input  emd  output  state¬ 
ments.  These  routines  provide  Input/output  capability  on  the  DASA  machine  con¬ 
figuration  cmd  are  therefore  machine  configuration-dependent. 

These  descriptions  are  designed  to  aid  the  programmer  who  Is  responsible  for 
maintaining  the  ccmpller.  They  should  be  used  only  in  conjunction  with  a  list¬ 
ing  of  the  related  JOVIAL  statements  cmd  with  the  documents  that  describe  the 
phase  (translator  or  generator)  of  the  compiler  in  which  these  routines  are 
housed. 
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CHAPTER  1 

PROCESSING  OF  C(»lPOOL  IDENTIFIERS 


1.0  INTRODUCTION 

Compool  sensitivity  for  the  l604  JOVIAL  compiler  is  made  possible  by  the  inclu¬ 
sion  of  three  procedures,  RPOOL,  POOL,  and  CONVB,  within  Pass  1  of  the  Generator. 
RPOOL  deals  with  the  compool  in  its  entirety.  POOL  operates  within  individual 
sections  of  the  compool.  CONVB  is  used  to  convert  characters  from  one  code  to 
another. 


1.1  RPOOL 

The  function  of  RPOOL  is  to  determine  if  the  object  program  requires  a  ccanpool; 
to  read  the  required  coaq>ool  from  tape  into  core;  and  to  Indicate  the  presence 
or  absence  of  a  compool.  RPOOL  has  no  input  or  output  psurameters  or  local 
variables . 

Description.  The  procedure  begins  by  checking  item  COMPOL  to  determine  if  a 
cooipool  is  requested  by  the  control  card  of  the  object  program.  If  RPOOL  finds 
that  a  comjKsol  is  not  needed,  RPOOL  z«turns  to  the  main  program.  If  a  conpool 
is  needed,  it  is  read  from  tape  into  core.  Because  the  sections  of  the  compool 
are  in  one  continuous  tape  record,  and  because  the  variable  length  tables  (one 
per  section)  nust  be  read  into  fixed,  maximum-length,  non-contlguous  core  loca¬ 
tions,  RPOOL  is  written  in  direct  code. 

To  read  and  place  cooqpool  tables  in  specified  areas  of  core,  RPOOL  monitors 
the  input  for  each  desired  cooqpool  section.  Each  section  is  identified  by  a 
table  name  and  total  number  of  words.  If  the  input  does  not  contain  one  of 
the  sections  listed  within  RPOOL,  that  entire  compool  section  is  reeul  into  one 
word  of  core.  If  the  section  is  needed,  its  location  and  total  number  of  words 
are  placed  in  the  l/O  control  word  and  the  section  is  read  into  its  proper  core 
location.  This  process  continues  until  the  end-of-record  is  sensed.  If  a 
parity  is  sensed,  the  tape  is  backspaced  and  the  entire  process  is  repeated. 
Vfhen  no  parity  is  sensed,  the  item  COMPOL  is  set  to  indicate  that  the  cong;>ool 
is  present. 

1.2  POOL 

This  procedure  searches  a  con^ol^  section  for  a  given  identifier.  If  the 
identifier  is  found,  POOL  sets  specific  items  in  the  Generator  equal  to  the 
giAren  con^ool  information.  If  the  identifier  is  not  found,  an  exit  fron  POOL 


1  The  compool  used  is  described  in  SDC  Field  Note  FN-WD-5545/513/OO,  12 
February  1962. 
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is  made  without  any  items  being  set.  POOL  is  entered  from  IDEAL  .  Only  ex¬ 
press  items  are  used  as  its  input  and  output  parameters. 

Local  Variables. 

RAY  -  a  simple  item  indicating  an  array  item. 

XX  -  a  simple  item  for  processing  one  byte. 

AA  -  a  simple  item  for  indexing  within  compool  item  CISYM. 

BB  -  a  simple  item  for  Indexing  the  compool  status  table  CSTA. 

NS  -  a  simple  item  for  indexing  the  number  of  states  of  a  status  item. 

DD  -  a  sinqjle  item  for  indexing  the  DICT  table. 

RR  -  a  simple  item  for  indexing  the  mixed  part  of  the  compool  item 

table  CITM. 

SS  -  a  8ijt5)le  item  Indexing  the  item  table  where  the  item's  associated 
table  entry  is  given. 

POOLA  -  a  sinqple  item  containing  the  identifier  in  BCD. 

POOLAX  -  a  nine-chauracter  simple  item  overlaid  with  POOLA. 

BCDSTC  -  used  to  convert  statuses  from  BCD  to  STC. 

Description.  POOL  is  called  by  IDEAL  to  seeurch  a  compool  section  for  an  iden¬ 
tifier  when  IDEAL  has  failed  to  locate  it  in  the  dictionary.  POOL  first  checks 
NCHAR^  and  if  NCHAR  is  found  to  be  greater  than  five,  POOL  returns  to  IDEAL 
(because  con^jool  identifiers  are  limited  to  no  more  than  five  characters) . 

The  req^uested  identifier  in  IDNT  is  moved  to  POOLA  and  converted  from  STC  code 
to  BCD.  POOLA  is  then  used  to  determine  the  identifier's  presence  in  or  ab¬ 
sence  from  the  compool. 

POOL  considers  two  conditions  when  called  by  IDEAL.  Item  PARAM,  which  is  set 
by  IDEAL,  indicates  these  conditions  and  controls  what  will  be  done.  If  PARAM 
is  not  equal  to  one  or  five,  POOL  returns  to  IDEAL.  If  PARAM  equals  one,  in¬ 
dicating  that  a  designation  label  has  been  encountered  in  the  program,  POOL 
searches  the  program  section  of  the  compool  (CPRG)  for  the  identifier.  If  it 
is  found,  the  dictionary  item  DEFN  is  set  to  two,  to  indicate  that  the  item  is 


2  SDC  Technical  Memorandum,  TM-555/020/0C,  1  July  1962 
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cotiq>ool-deflned.  Also,  CLAS  Is  set  to  12,  which  Indicates  a  conqpool-deflned 
progrsun.  If  the  Identifier  Is  not  found  In  the  CPRG  section  of  the  ccMqpool, 
POOL  returns  to  IDEAL. 

If  FARAM  equals  five,  which  Indicates  that  a  variable  Is  being  processed, 

NCHAR  Is  checked  first.  If  NCHAR  Is  not  equal  to  four  or  five,  POOL  returns 
to  IDEAL.  If  NCHAR  equals  four,  it  is  necessary  to  search  only  the  table  sec¬ 
tion  of  the  coopool  (CTBL),  because  table  names  In  the  coopool  have  four  char¬ 
acters.  If  the  four-chareu:ter  Identifier  Is  not  found,  POOL  exits  to  IDEAL. 

If  the  Identifier  is  found,  the  following  dictionary  Items  are  set: 

DEFTf  -  set  to  two.  Indicating  conqpool-deflned. 

CLAS  -  set  to  seven.  Indicating  a  table. 

PACK  -  set  to  one.  Indicating  the  table  Is  packed. 

Other  Items  are  set  according  to  the  table  definition  Information  In  coiiq>ool 
item  CTTYP.  If  CTTIP  does  not  equal  one,  two,  or  three.  Error  Message  ^3 
(identifier  usage  is  not  conqpatlble  with  Its  class)  is  output  and  FOOL  returns 
to  IDEAL. 

If  CTTIP  equals  one  (parallel  table): 

TFIM  is  set  to  one.  Indicating  a  parallel  table. 

SIZE  Is  set  to  the  number  of  words  per  entry  (CTMAX/CTVDS,  which  Is 
the  number  of  words  In  the  table  divided  by  tte  number  of  entries). 

CHLl  Is  set  to  the  number  of  entries  (CTVDS) . 

POOL  then  returns  to  IDEAL. 

If  cm?  equals  two  or  three  (serial  or  mixed  table): 

TERM  Is  set  to  two  to  Indicate  a  serial  table. 

FDAT  is  set  to  CTVAR,  which  Indicates  rigid  or  variable  table  length 
(true  equals  variable) . 

SIZE  Is  set  to  the  number  of  words  per  entry  (C!NDS) . 

CHLl  Is  set  to  the  number  of  entries  (cnCAX/CTWDS) . 

POOL  then  returns  to  IDEAL. 
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If  POOL  finds  NCEAR  equal  to  five^  it  searches  table  CITM  for  the  desired  item 
name.  It  may  find  that  the  item  name  is  a  subordinate  of  a  table,  an  array, 
or  even  another  item.  If  the  desired  identifier  is  not  encountered  by  the 
seeurch  of  table  CITM,  POOL  retiurns  to  IDEAL.  Once  the  desired  identifier  is 
found,  two  referencing  counters  (RR  and  SS)  are  set.  RR  is  set  equal  to  the 
entry  number  in  the  second  half  of  the  CITM  table,  where  the  variable  informa¬ 
tion  describing  the  compool  item  is  located.  SS  is  set  equal  to  RR.  If  the 
desired  item  is  subordinate  to  another  item,  SS  is  modified  to  contain  the  en¬ 
try  number  in  the  second  half  of  the  CITM  table,  where  the  cross-reference  en¬ 
try  number  to  the  CTRL  table  is  located.  If  the  item  requested  by  IDEAL  is 
subordinate  to  an  array,  an  indicator  is  set.  By  use  of  reference  counter  RR, 
the  following  dictionary  items  are  always  set; 

CLAS  set  to  five  (table  item). 

FPNM  set  to  CIWRL  (word  in  the  entry  where  located) . 

DEFN  set  to  two  (comp'ol-defined) . 

PACK  set  to  one  ( indie a‘es  packed  table). 

PEIT  set  to  CIBEG  (beginning  bit  position  of  word). 

If  CICOD  equals  one  (fixed  point); 

TYFV  set  to  one  (fixed  point). 

BRGT  set  to  CIFRA  (number  of  bits  right  or  fractional  bits). 

SIZE  set  to  GISTS  (number  of  bits). 

PDAT  set  to  CIGND  (signed  or  unsigned). 

If  CICOD  equals  two  (Boolean) : 

TYPV  set  to  two. 

SIZE  set  to  one  (number  of  bits). 

If  CICOD  equals  six  (integer)  or  15  (X-coded); 

TYPV  set  to  six. 

SIZE  set  to  CIBTS  (number  of  bits) . 
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If  CICOD  equals  four  (floating): 

TYPV  set  to  four. 

FDAT  set  to  SIGND  (sign). 

SIZE  set  to  48  (number  of  bits). 

If  CICOD  equals  five  (Hollerith): 

TYPV  set  to  five. 

SIZE  set  to  CIBTS  (number  of  bytes). 

If  CICOD  equals  nine  (transmission): 

TYPV  set  to  nine. 

SIZE  set  to  CIBTS  (number  of  bytes). 

If  CICOD  equals  seven  (status): 

TYPV  set  to  seven. 

SIZE  set  to  CIBTS. 

BROT  set  to  NSTAT  (index  to  VALU). 

Status  item  statuses  must  be  moved  from  the  cceqpool  to  the  compiler  table  VALU. 

This  is  done  in  the  area  labeled  A1  to  HI. 

For  the  above  items  vhlch  vlll  have  a  CLAS  set  to  five,  CHLP  is  set  to  the  dic¬ 
tionary  channel  where  the  table  description  containing  this  item  can  be  found. 

CHLl  will  contain  the  number  of  words  per  entry. 

If  the  item  belongs  to  a  table,  the  table  name  is  moved  into  UStT,  NCHAR 
set  to  four,  and  the  table  section  of  the  conqpool  is  then  seao'ched.  Thus, 
the  table  is  entered  in  the  dictionary  if  it  has  not  been  previously  entered. 

If  the  item  belongs  to  an  array,  the  dimensions  of  the  eurray  are  stored  in  the 
DISH  table  and  POOL  returns  to  IDEAL.  It  should  be  noted,  however,  that  the 
use  of  arrays  by  FOOL  is  not  fully  iaqplemented. 

1.3  COHVB 

The  function  of  this  procedure  is  to  locate  an  identifier  for  conversion  from 
STC  to  BCD  or  BCD  to  STC.  CONVB  has  no  local  variables.  It  is  entered  from 
POOL. 
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Description.  The  Identifier  to  be  converted  must  be  located  In  the  Item  IDNT, 
with  TEXT  set  to  Indicate  the  first  byte  sjid  NCHAR  set  to  the  number  of  bytes 
to  be  converted.  CONVB  sets  K0NVR8,  K0NVR9,  and  KNVIO  for  the  CLOSE  routine 
KONVRT  to  convert  the  bytes  from  the  Input  type  given  In  DUM3  to  the  output 
type  requested  In  D0M4  In  the  Item  IDHT  Itself.  CONVB  then  calls  KONVRT  to  do 
the  actual  conversion.  KONVRT  Is  a  small  direct  code  routine  which  converts 
bytes  of  Information  from  STC  to  BCD  smd  BCD  to  STC. 
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CHAPTER  2 

PROCESSUK}  OF  DIRECT  CODE 


2.0  HITRODUCTIOli 

The  processing  of  direct  code  for  the  l604  Is  performed  by  the  JOVIAL  conqpller 
using  Procedure  Direct  Code  (DC),  which  Is  part  of  Translator  Pass  1  (Tl).  DC 
processes  direct  code  cards  after  Generator  Passes  1  and  2  have  cosqpleted  their 
operations  so  that  Information  found  In  the  direct  code  can  be  added  to  the 
table  DICT  and  Its  associated  tables  before  the  translation  begins.  Procedure 
DC  allows  the  object  program  to  cross-reference  direct  code  labels  with  the 
JOVIAL  Identifiers  or  conqpool  Identifiers.  If  the  direct  code  is  contained 
within  a  procedure,  local  cross-referencing  Is  first  atteiopted  to  establish 
the  direct  code  with  labels  In  the  procedure.  If  this  cannot  be  done,  ejqpress 
cross-referencing  is  attenqpted  to  relate  the  direct  code  with  labels  in  the 
main  program.  Cross-referencing  from  one  procedure  to  another  must  never  be 
done.  If  the  direct  code  Is  not  contained  within  a  procedure,  cross-referencing 
can  be  only  esqiress.  All  mnemonic  or  octal  codes  omiy  be  used,  as  may  a  set  of 
pseudo-operation  codes  that  Include  preprocessor  codes. 

2.1  GERERATOR  PASS  1  (g1)  PROCESSIHG 

After  encountering  the  DIRECT  bracket.  Generator  Pass  1  (Gl)  scans  each  direct 
code  cai4,  searching  for  an  ASSS2R  qperator  or  the  terminating  bracket,  JOVIAL. 
All  direct  code  cards  are  counted  as  encountered,  one  through  n.  To  distinguish 
between  the  same  local  and  ejqpress  Identifiers  when  direct  code  Is  encountered 
In  a  procedure,  Gl  collects  pertinent  Information  in  the  PDRT  table  which  is 
used  by  the  DC  procedure  In  Tl.  The  four  Items  in  PDRT  which  permit  this  au:«: 

PlHtC  -  the  beginning  dictionary  cbimnel  of  the  procedure  of  which  this 
direct  code  Is  a  part. 

FDRL  -  the  terminating  dictionary  channel  of  the  procedure. 

FDRR  -  the  nuniber  of  direct  code  cards  which  belong  to  this  procedure. 

PDRF  -  the  starting  sequent IsO.  cstrd  count  when  direct  code  In  this 
procedure  Is  encountered. 

To  permit  referencing  JOVIAL-defined  Identifiers,  i.e.,  those  defined  outside 
the  scope  of  direct  code,  the  DISH  table  Is  passed  on  to  Tl  via  tape.  The 
DISH  table  represents  all  of  the  Identifiers  (the  numeric  HASBed  values  of  the 
identifiers)  and  contains  for  each  HASHed  Identifier  an  Index  to  the  dictionary. 
The  dictionary  Items  FCHB  and  RCHB  are  used  to  index  the  IDHS  string  to  obtain 
the  actual  Identifier.  Gl  encodes  all  encountered  direct  code  cards  In  BCD 
and  writes  them  onto  the  tape  declared  DIRCT. 
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2.2  DC  PROCESSING 

DC  produces  a  set  of  variables  In  the  table  SKDUE  for  each  direct  code  card 
and  then  writes  SKDUE  onto  a  tape,  SKDRCT,  for  Input  to  T2.  DC  is  entered  from 
the  main  program  of  Tl.  It  has  no  Input  or  output  parameters. 

Local  Variables. 

DD  -  DICT  entry 

YY  -  Ryte  of  the  card  Image 

ZZ  -  Number  of  bytes 

JOC  •  Converted  decimal  number 

PLOAI  -  Floating  point  interm 

NHN  -  Converted  octal  number 

SL  >  Byte  of  the  starting  letter  In  mterm  or  LOC  field 

NL  -  Number  of  letters 

SN  -  Sign  of  the  number  In  mterm 

BN  -  Byt«  ot  the  first  digit  in  mtezna 

NOR  >  NuflOwr  of  numbers  In  the  mterm 

EN  -  Type  of  character  at  the  end  of  the  number 

¥P  >  First  byte  of  a  floating  point  number 

FN  -  Number  of  digits  In  the  floating  point  number 

SD  -  Sign  of  the  digits  after  the  number 

PD  >  First  byte  of  the  digit  in  the  poirar 

ND  -  Number  of  digits  in  the  power 

NDA  -  Power  of  10  or  two 

DO  -  Indicates  an  eight  or  nine  In  a  set  of  numbers 
SW2  -  Zero  LOC  field;  one  ■  mterm 
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XH  -  Transmission  work  area 
XX  -  Byte  work  area 

PRO  -  DICT  entry  when  a  procedure  begins 
SWN  -  Presence  of  a  number  in  mterm 
ENI  -  ROP 

RCBR  •>  First  byte  in  the  B  power  of  a  DEC  card 
HC  -  Ifuiiiber  of  bytes 

PC  -  Reference  to  self,  indicated  by  a  (*) 

HOPK  -  A  subscripted  item  containing  the  CODAP  symbolic  codes 

Pseudonneaonlc  Codes.  The  following  list  of  codes  are  allowed  by  the  direct 
code  procedure: 


POSA 

SEN 

REM 

IDEHT 

POSQ 

irtRij 

Equ 

FINIS 

RESA 

ACT 

ORG 

END 

RESQ 

qSJ 

DEC 

BSS 

LD9f 

ARJ 

OCT 

BES 

ENIL 

SRZ 

BCD 

BTS 

miL 

RTJ 

FLX 

LIB 

MASK 

NOP 

TEL 

Description.  Direct  code  cards  are  read  and  processed  one  at  a  time  in  four 
distinct  segments:  the  location  field  (columns  l-S  of  the  card);  the  opera¬ 
tion  code  field  (columns  IO-13);  the  index,  or  bterm,  field  (columns  17-I8); 
and  the  mterm  field  (columns  20-39) • 

The  main  body  of  this  procedure  is  oriented  toward  input,  output,  and  CODAP- 
compatible  legality  checking.  Calls  are  made  to  the  following  procedures  and 
CLOSE  routines  tdiich  perform  the  actual  formulation  of  the  cooplete  location 
and  mterm  fields: 

CLOSE  NUMBER  is  called  to  form  the  labels  for  routine  K0  to  process. 
CLOSE  OTQB  is  called  to  convert  an  octal  STC  number  to  blneuy. 

CLOSE  DTOB  is  called  to  convert  a  decimal  STC  number  to  binary. 
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Procedure  TRANS^  is  called  to  convert  the  first  40  ceu:d  columns  from 
BCD  to  STC. 

Procedure  COMV  is  caJ-led  to  convert  character  coding  from  one  code  to 
another  ( see  below) . 

The  CODAP  pseudocodes  RST  and  WST  are  not  implemented*  CODAP  pseudo-operation 
codes  DEC|  OCT,  BCD,  fLX  and  TEL  8u*e  implemented  but  are  restricted  to  one  word 
of  information  per  direct  code  card.  When  identifiers  (labels,  tags)  are  pres¬ 
ent  either  in  the  location  or  mterm  fields,  CLOSE  R0  calls  procedures  HAS^  and 
SRCr  to  determine  if  the  identifier  had  been  previously  used. 

The  area,  in  CLOSE  R0  from  tag  R01  to  R5  insures  proper  coo^tible  usage  and 
referencing  of  identifiers  within  the  scope  of  direct  code.  Further,  this 
area  provides  that  cross-referencing  within  a  procedure  will  be  first  local  and 
then  express,  but  never  from  one  pncedture  to  another.  Referencing  of  arrays, 
switches,  flies,  procedures,  closes,  and  strings  in  direct  code  is  Illegal. 
Conpool-deflned  identifiers  previously  referenced  in  a  JOVIAL  statement  or 
those  which  are  unique  (i.e.,  not  defined  by  a  label  used  elsewhere  in  direct 
code)  will  be  permitted  in  this  region.  If  an  identifier  has  not  been  previ¬ 
ously  defined,  or  if  it  exists  in  a  main  program  or  in  another  procedure,  etc., 
an  entry  is  made  in  the  DICT  table  for  further  referencing. 

2.3  COHV 

The  function  of  procedure  CONV  is  to  convert  a  given  number  of  bytes  from  any 
one  to  another  of  six  types  of  character  coding  (BIN,  BCD,  STC,  FLX,  TEL,  or 
SFFXL).  CONV  is  entered  from  procedure  DC. 

Description.  The  information  to  be  converted  is  located  in  the  CARD  image. 

The  formal  parameter  DUMI  contains  the  first  column,  and  DUMB  contains  the  num¬ 
ber  of  columns  to  be  converted.  COSY  converts  the  bytes  from  the  input  type 
given  in  DUM3  to  the  output  type  requested  in  DUIf4  in  the  CARD  image  itself. 

A  table  look-up  substitutes  the  requested  type  for  the  input  type  in  the  CARD 
image. 

2.4  ERROR  MESSASES 

Number  Explanation 

201  Mterm  contains  more  than  five  digits. 


1  SDC  Technical  Memorandum,  3M- 555/302/00,  1  June  1962 
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Number  Explanation 

203  More  than  eight  characters  between  two  minus  zero  symbols  (5)  on  a 
FLX  or  TEL  card. 

204  DEC  Is  Illegal:  too  many  digits,  non-numeric  characters. 

203  BSS  Is  Illegal:  non-numeric  characters  In  mterm. 

206  OCT  contains  more  than  l6  digits  and/or  an  eight  or  nine  In  mterm. 
The  LOCN  or  mterm  has  more  than  six  characters  (symbolic). 
Duplicate  tags. 


207 

208 
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CHAPTER  3 

PROCESSING  OF  INPUT/OUTPUT  STATEMENTS 
3.0  INTRODUCTION 

Several  procedures  and  closed  statements  in  T2  eure  employed  to  generate  instruc¬ 
tions  which  will  acconqplish  input/output  operations.  The  particular  input  and 
output  operations  are  stated  in  the  JOVIAL  language.  These  statements  are  en¬ 
coded  by  G1  and  T1  and  passed  to  T2  in  the  Intermediate  Language  table  and  the 
dictionary.  The  procedures  ad  closed  statements  in  T2  use  this  information  to 
generate  either  the  specific  external  function  codes  or  a  celling  sequence  to 
a  library  routine  which  will  acconq>lish  the  input/ output  operations.  The  re¬ 
quired  library  routines  are  incorporated  with  the  conqpiled  program  during  as¬ 
sembly. 


3.1  ACCCK 

This  closed  routine  is  used  to  check  for  a  subscript  or  bead  in  the  accumulator 
when  input  and  output  statements  are  processed.  If  ACCCK  finds  either  in  the 
accumulator,  it  sets  up  instructions  to  store  the  subscript  or  bead  in  tenq)or- 
ary  storage.  The  program  then  exits  from  ACCCK. 

The  temporary  storage  aisslgnments  for  a  subscript  or  bead  sure: 

If  the  operand  has  only  one  subscript,  the  subscript  is  stored  in 
TEMPS+1. 

If  the  first  of  the  operand's  two  subscripts  is  found  in  the  accumula¬ 
tor,  it  is  stored  in  TEMPS.f2. 

If  either  the  second  subscript  or  the  first  or  second  becul  is  found 
in  the  accumulator,  it  is  stored  in  TEMPS+1. 

3.2  CENTSZ 

This  closed  routine  is  used  in  processing  input  and  output  statements  whose 
dataname  is  a  table.  CENTSZ  checks  for  a  parallel  table  with  more  than  one 
word  per  entry.  If  one  is  found,  eui  error  message  is  written  on  the  debug 
tape. 

3.3  CALL 

This  procedure  is  used  to  prepare  the  first  word  of  the  calling  sequence  for 
output  librsuy  routines. 
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Description.  If  the  output  hardware  is  one  of  those  listed  below,  CALL  sets 
item  CELLl  equal  to  zero  as  an  error  flag.  If  the  output  hardware  is  not  one 
of  those  listed  below,  CELLl  is  set  equed  to  one  and  an  error  message  is 
printed  on  the  debug  tape. 

CALL  prepares  instructions  to  call  the  appropriate  library  routine,  using 
BLIB^,  which  actually  generates  the  RTJ.  CALL  also  sets  an  indicator  for  the 
next  Instruction  to  be  forced  into  an  upper  location. 

1.  Magnetic  Tape.  If  a  binary  file  is  to  be  written  on  magnetic 
tape,  a  Jump  to  library  routine  CRITB'  is  generated.  If  the  file 
is  decimal,  CRITD'  is  called.  CALL  prepares  the  next  instruction, 
which  indicates  the  channel  and  cabinet  number  in  the  (^ration 
field,  and  the  tape  number  in  the  bterm  field. 

2.  Typewriter .  A  Jump  to  CWTYP'  is  generated.  No  lower  instruction 
is  prepared. 

3.  Paper  Tape.  A  Jump  to  CPTPS’  is  generated.  If  the  file  is  bi¬ 
nary,  the  mterm  of  the  next  instruction  is  set  equal  to  zero.  If 
it  is  decimal,  the  mterm  is  set  equed  to  one. 

4.  Card  Punch.  A  Junqi  to  CPKCH*  is  generated.  The  mterm  of  the  next 
Instruction  is  set  to  zero  if  the  file  is  decimal,  or  to  one  if 
the  file  is  binary. 

5*  Printer.  A  Junq)  to  CPRNT'  is  generated.  No  lower  Instruction  is 
prepared. 

3.4  CBRGT 

Procedure  CBRGT  is  used  in  processing  input  statements  to  set  three  items  for 
magnetic  tape  assignments; 

COPN  is  set  to  an  octal  value  equal  to  the  channel  number  times  eight 

plus  the  1607  unit  number. 

CBTERH  is  set  to  the  tape  unit  number. 

CNTRL  is  set  to  a  binary  value  equal  to  the  decimal  value  of  the  hard¬ 
ware  Identifier  ( 'T"  number) . 


1  SDC  Techniced  Memorandum,  TM-WD-555/303/OO  (to  be  published  October  1962) 
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The  Item  settings  for  each  possible  magnetic  tape  are  as  follows: 


Hardware 

Identifier 

BRGT 

(Octal) 

CB 

RGT  Settin/ 

COPN 

(octal) 

CBTERM 

CNTRL 

(Decimal) 

TOl 

11 

12 

1 

1 

T02 

12 

12 

2 

2 

TO3 

13 

12 

3 

3 

T04 

14 

12 

4 

4 

TO5 

31 

32 

1 

5 

T06 

32 

32 

2 

6 

TO7 

33 

32 

3 

7 

TO8 

34 

32 

4 

8 

TO9 

51 

52 

1 

9 

TIO 

52 

52 

2 

10 

Til 

53 

52 

3 

11 

T12 

54 

52 

4 

12 

Description.  CBRGT  checks  the  vsdue  of  BROT  subscripted  by  CSUB  to  determine 
the  setting  of  items  COFN,  CBTERM^  and  CNTRL.  VRien  they  are  set,  the  program 
exits  from  CBRGT. 

An  express  variable,  CSUB,  is  used  by  CBRGT  as  an  input  parameter.  CSUB  is 
set  to  PILF  or  OILF  ($1$),  depending  on  whether  the  source  of  the  required  in¬ 
formation  is  an  XL  operator  or  operand. 

3.5  CIHPT 

This  procedure  is  used  in  processing  edl  input  statements.  Uie  celling  se¬ 
quences  for  the  appropriate  library  routine  are  generated,  as  well  as  any  in¬ 
structions  required  for  manipulation  of  the  input  data. 

Description.  Before  processing  any  input  statements,  CIHPT  performs  the  fol¬ 
lowing  four  steps: 

1.  Unpacks  the  IL  table  into  the  DIL,  ^IL,  BILl,  and  BIL2  tables; 

2.  Uiqwcks  the  dictionary  items  for  the  first  operand; 

3.  Checks  the  contents  of  the  accumulator  for  a  subscript  or  bead, 
cmd 

4.  Sets  an  index  register  equal  to  DILF($1$)  to  save  time  and  space. 
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Calling  sequences  vary  as  follows  with  the  input  hardware  to  he  used; 

1.  Magnetic  Tape.  Initial  parameters  are  established  and  instructions 
are  generated  to  set  a  fleig  to  zero  to  indicate  that  this  file  is 
to  be  used  for  input. 

a.  If  the  dataneune  is  a  table  modified  by  NENT^  instructions  are 
generated  for  a  Jump  to  librauy  routine  CKEDB’  and  to  set  an 
indicator  for  the  next  instruction  to  be  forced  into  an  upper 
location . 

b.  If  the  dataname  is  a  table  not  modified  by  HENT,  instructions 
are  generated  to  store  the  proper  starting  and  terminating 
(terminal,  address  plus  one)  aiddresses  of  the  dataname  in  the 
calling  sequence. 

1)  If  there  was  an  error  in  procedure  CIOTBL,  the  error  indi¬ 
cator  item,  ERR,  is  set  equsd  to  zero  and  an  exit  is  made 
from  the  routine. 

2)  If  there  was  no  error  in  CIOTBL,  a  Jump  to  library  routine 
CREDB'  is  generated  and  an  indicator  is  set  for  the  next 
instruction  to  be  forced  into  an  upper  location. 

a)  If  the  file  is  binary,  a  Juup  to  library  routine 
CREDB*  is  generated. 

b)  If  the  file  is  decimal,  a  Jump  to  library  routine 
CREDO*  is  generated. 

c.  If  the  dataname  is  subscripted  by  a  bead,  an  error  message  is 
written  on  the  debug  tape  and  an  exit  made  from  the  routine. 

d.  If  the  dataname  is  a  table  item  with  a  single  subscript, 

CIRPT  uses  procediare  CTBLI  to  prepare  instructions  for  storing 
the  proper  starting  and  terminal -plus-one  addresses  in  the 
cadling  sequence. 

If  the  liqput  hardware  is  not  magnetic  tape,  item  BBUR  is  set  to 
hardware  type  and  then  used  by  switch  lOUNIT  to  determine  the  cal¬ 
ling  sequence  for  the  proper  library  routine. 

2.  Clock.  The  contents  of  the  clock  are  placed  in  the  accumulator. 

a.  If  the  datfluiame  is  a  simple  item,  the  suscumulator  is  stored 
in  the  proper  item  and  aui  exit  is  made  from  the  routine. 
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b.  If  the  dataname  Is  a  subscripted  item,  CINFT  uses  procedure 
DEPOS^  to  deposit  the  accumulator  In  the  proper  location,  emd 
an  exit  is  made  frcxn  the  routine. 

c.  If  the  dataname  is  neither  a  simple  nor  subscripted  item,  an 
error  message  is  written  on  the  debug  tape  and  an  exit  is 
made  from  the  routine. 

3.  ^^pevrlter .  A  Jump  to  library  routine  CRTYP’  is  generated  and  an 
Indicator  is  set  for  the  next  instruction  to  be  forced  into  eui 
upper  location. 

4.  Paper  Tape.  A  Jump  to  library  routine  CPTRD'  is  generated  and  an 
indicator  is  set  for  the  next  instruction  to  be  forced  into  an 
upper  location.  The  mterm  of  the  next  instruction  is  set  to  one 
or  zero,  depending  on  whether  the  file  is  Hollerith  or  binary. 

5*  Ceurd  Reader.  A  Junqp  to  library  routine  CREAD'  is  called  tuid  an 
indicator  is  set  for  the  next  instruction  to  be  forced  into  an 
upper  location.  The  mterm  of  the  next  instruction  is  set  to  one 
or  zero,  depending  on  whether  the  file  is  Hollerith  or  binary. 

a.  If  the  input  hardware  is  the  secondary  read  station,  the  mterm 
of  the  next  instruction  is  increased  by  two. 

b.  If  the  input  hardware  is  not  the  secondeury  read  station,  the 
mterm  of  the  next  instruction  is  increased  by  one. 

If  the  input  hardware  is  other  them  magnetic  tape,  clock,  typewriter, 

paper  tape  or  card  reader,  an  error  message  is  written  on  the  debug 

tape  emd  an  exit  made  from  the  routine. 

Up  to  this  point,  CINFT  has  generated  the  first  two  half-words  of  the  ced.llng 
sequence  and  also  instructions  that  will  modify  the  ccd.llx)g  sequence  during 
execute  time.  The  following  description  relates  to  that  part  of  CINPT  which 
generates  the  last  two  half-words  of  the  calling  sequence; 

1.  Table. 

a.  If  the  table  is  modified  by  RENT,  the  address  of  tablename 
minus  one  is  set  up  in  the  mterm  of  the  next  instruction  as 
the  starting  address  of  the  input  data.  The  address  of  the 
tablename  is  set  up  in  the  lower  mterm  eis  the  terminating  ad¬ 
dress. 
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b.  If  the  table  is  not  modified  by  KENT,  two  instructions  of 

zeros  are  prepeured  so  that  the  starting  address  may  be  stored 
in  the  upper  mterm  of  this  word  and  the  terminating  address 
may  be  stored  in  the  lower  mterm. 

An  exit  is  made  from  CINPP. 

2.  Beaded  Item.  If  the  item  is  modified  by  BIT  or  BYTE,  an  error 
message  is  written  on  the  debug  tape,  and  an  exit  is  made  from 
CmPT. 

3.  Simple  Item.  If  the  dataname  is  not  subscripted,  it  is  a  simple 
item.  Procedure  CNOSU  is  used  to  set  the  starting  and  terminating 
addresses  in  the  next  word.  An  exit  is  made  from  CINFT. 

i 

4.  Subscripted  Item.  Procedure  CTBLI  is  called  to  prepare  instruc¬ 
tions  to  generate  and  store  the  starting  and  terminating  addresses 

of  the  input  data  in  the  calling  sequence.  I 

! 

a.  If  item  OPS  is  equal  to  five,  two  instructions  of  zeros  are 

prepared  for  the  calling  sequence  to  contain  the  stcurting  and  I 

terminating  addresses  of  the  data  transfer.  I 

b.  If  item  OPS  is  zero,  a  call  to  library  routine  CBUPR'  (working  •. 

storage  space)  is  generated.  | 

c.  If  the  item  is  not  Hollerith  or  STC,  or  is  less  than  or  equal 

to  eight  literal  characters,  the  mterm  of  the  next  two  instruc-  | 

tlons  is  set  to  CBUF7)'  and  CBUPR '<*-l  as  starting  cuid  termlna-  ' 

ting  addresses.  Procedure  B]K>DS^  is  used  to  set  up  the  DIL 
and  DICT  tables  so  that  the  second  operand  will  be  the  accumu¬ 
lator  in  an  ASSIGN  statement.  Hie  contents  of  CBUFR'  are 
placed  in  the  accumulator,  and  procedure  DEPOS  is  used  to 
generate  instructions  to  properly  position  and  store  the  in¬ 
put  data. 

5.  Subscripted  Literal  Item  Greater  Than  Eight  Characters.  To  deter¬ 
mine  the  stairtlng  address  of  the  input  data,  the  nui^er  of  char- 
suiters  is  divided  by  eight.  If  it  is  equally  divisible,  the 
number  is  reduced  by  one.  The  steurting  euldress  for  input  data  is 
set  at  CBUFR'  minus  the  number  ceilculated,  and  the  terminating 
address  is  set  equcd  to  CBUFR* +1.  Item  HILL  is  set  equal  to  two, 
indicating  to  procedure  BORB^  that  the  information  to  be  stored 
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In  the  dataname  is  In  the  CBUFR'  table.  BORB  Is  used  to  deposit 
the  input  data  in  the  location  specified  by  the  dataname.  An 
exit  is  then  made  from  the  routine. 

3.6  COUTT 

Procedure  COUTT  is  primarily  concerned  with  the  second  word  of  the  calling  se¬ 
quence;  that  is,  with  the  starting  and  terminating  euidresses  of  the  data  to  be 
output.  COUTT  uses  procedure  CALL  to  generate  the  call  for  the  appropriate 
library  routine. 

Description.  Before  processing  any  OUTPUT  statements,  COUTT  performs  the  fol¬ 
lowing  four  steps: 

1.  Unpacks  the  IL  table  into  the  DIL,  SBIL,  BILl,  and  BIL2  tables; 

2.  Unpacks  the  dictionary  items  for  the  first  operand; 

3*  Checks  the  contents  of  the  accumulator  for  a  subscript  or  bead, 
and 

4.  Sets  an  index  register  equal  to  DILF($1$)  to  save  time  and  space. 
If  the  output  hardware  is: 

1.  Magnetic  Tape.  Initial  parameters  are  established  and  instruc¬ 
tions  are  generated  to  set  a  flag  to  one  to  indicate  that  this 
file  is  to  be  used  for  output. 

2.  Clock  (CLOCKO).  If  the  dataname  is  a  simple  item  or  table  item, 
procedure  EIJX)D^  is  called  to  generate  instructions  to  load  and 
right-Justlfy  the  item.  Instructions  are  generated  to  store  the 
accumulator  in  the  clock  and  cui  exit  is  made  from  COUTT.  If  the 
dataname  is  not  a  slnq>le  item  or  a  table  item,  em  exit  is  made 

frcm  coinr. 

Dataname  instructions  cure  prepared  as  follows: 

1.  Table. 

a.  If  the  table  is  modified  by  BERT,  procedure  CALL  is  used  to 
generate  the  call  to  the  appropriate  output  llbraoy  routine. 
If  the  error  indicator  CELLl  is  set  when  returning  from  CALL, 
an  exit  is  made  from  COlfCT.  If  it  is  not  set,  the  steurtlng 
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address  is  set  equal  to  the  tablename  minus  one,  the  termi¬ 
nating  address  is  set  equal  to  the  tablename,  emd  both  are 
placed  in  the  calling  sequence. 

b.  If  the  table  is  not  modified  by  NENT,  procedure  CIOTBL  is  used 
to  generate  instructions  to  store  the  starting  and  terminating 
addresses  in  the  calling  sequence.  If  the  error  indicator  ERR 
is  set  when  returning  from  CIOTBL,  ERR  is  set  equal  to  zero 
cuid  an  exit  is  made  from  COUTT.  If  ERR  is  not  set,  procedure 
CALL  is  used  to  generate  the  caJ.1  to  the  appropriate  output 
library  routine.  If  the  error  indicator  CELLl  is  set  when  re¬ 
turning  from  CALL,  an  exit  is  meuie  from  COUTT.  If  CELLl  is 
not  set,  one  word  of  zeros  is  generated  to  receive  the  start¬ 
ing  and  terminating  addresses  of  the  table. 

An  exit  is  made  from  COUTT. 

2.  Beaded  Item.  If  fhe  item  is  modified  by  a  BIT  or  BYTE,  an  error 
message  is  written  on  the  debug  tape,  and  an  exit  is  made  from 
COUTT. 

3.  Simple  Item.  If  the  dataname  is  not  subscripted,  it  is  a  simple 
Item.  Procedure  CALL  is  used  to  generate  the  call  to  the  appro¬ 
priate  library  routine.  If  CELLl  is  set  when  returning  from 
CALL,  an  exit  is  made  from  COUTT.  If  CELLl  is  not  set,  procedure 
CEOSU  Is  used  to  set  the  starting  and  terminating  addresses  in 
the  next  word.  An  exit  is  then  made  from  COUTT. 

4.  Subscripted  Item.  CTBLI  is  called  to  prepare  instructions  to 
generate  and  store  the  starting  and  terminating  addresses  of  the 
output  data  in  the  calling  sequence. 

a.  If  item  OPS  is  equal  to  five  when  returning  from  CTBLI,  which 
indicates  that  the  instructions  are  generated  and  stored, 

CALL  is  used  to  generate  the  call  to  the  appropriate  output 
library  routine.  If  the  error  indicator  CELLl  is  set  when 
returning  from  CALL,  an  exit  is  made  from  COUTT.  If  CELLl  is 
not  set,  the  next  word  of  the  cadling  sequence  is  set  equal 
to  zero.  The  upper  mterm  of  the  next  word  will  receive  the 
starting  address  and  the  lower  mterm  the  terminating  of  the 
output  data.  An  exit  is  made  fran  COUTT. 

b.  If  item  OPS  is  not  set  equal  to  five  when  a  return  is  made 
from  CTBLI,  a  call  to  library  routine  CBUFR'  (working  storage) 
is  generated.  If  the  output  data  is  not  a  Hollerith  or  STC 
item,  OP  is  set  equal  to  one  (first  operand)  euid  procedure 
ELDOD  is  used  to  set  up  instructions  to  load  the  subscripted 
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item  into  the  aceuaulator*  The  procedure  goes  to  area  COUT^A 
to  set  up  Instruetlone  to  store  the  aecuaulator  contents  In 
CBUFR'. 

c.  If  the  output  data  Is  less  than  or  eq.ual  to  eight  hytes,  item 
OP  Is  set  equal  to  one  (first  pMrand)  and  item  ODPOS  is  set 
equal  to  zero.  Procedure  LITEF^  is  used  to  prepare  instruc¬ 
tions  to  load  and  right-Justify  the  literal  item  in  the  accum¬ 
ulator.  The  procedure  goes  to  area  C0UT5A  to  set  up  instlnic- 
tions  to  store  the  accumulator  contents  in  CBUPP*. 

5.  Subscripted  Literal  Item  Greater  Than  >^ht  Characters.  To  deter- 
mina  tte  starting  address,  the  nuniber  of  characters  is  divided  by 
eight  and  the  quotient  is  stored  in  C8IZI.  If  it  is  equally  divi¬ 
sible  «  the  CSIZE  is  reduced  by  one.  fbe  indicator  is  set 
equal  to  one  as  a  flag  to  BORB  that  an  output  statement  is  being 
processed.  BORB  is  used  to  prepare  instructions  to  remove  output 
data  from  the  dataname  to  CBUTR* .  CALL  is  used  to  prepare  the 
first  vord  of  the  calling  sequence.  If  item  dlLl  is  set  when 
returning  from  CALL,  an  exit  is  made  from  COlfIT.  If  CELLl  is  not 
set,  the  upper  nterm  of  the  next  instruction  (starting  address) 

is  set  equal  to  CBUIR*  minus  CSIZE,  and  the  lover  mterm  is  set 
equal  to  CB0TR'4l  (terminating  addz«ss),  An  exit  is  made  from 
OODR. 

6.  Irror.  If  the  dataname  is  illegal,  an  error  message  is  written 
onto  the  debug  tape  and  an  exit  is  made  from  COOTT. 

3.7  ensoB 

This  procedure  is  used  by  procedures  CIOTBL  and  CTBLI  to  prepare  instructions 
for  loading  the  accumulator  with  the  imiLue  of  a  specified  subscript  (variable 
plus  or  minus  constant). 

Pescriytiop. 

1.  Item  OPS  is  equal  to  one  or  three,  depending  on  which  subscript 
(the  first  or  second)  is  to  be  lomled  into  tlM  accusulator. 

2.  Sinaia  Letter  Subscript.  Procedure  IHRSL^  is  used  to  prepare 
loMung  instruct lone  to  put  the  present  value  of  the  single  letter 
subscript  into  the  accumulator. 


1  1^  ^chnieai  Nsaorandum  TM-WD-555/3C3/00  (to  be  lublished  October  1962) 
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3.  NENT  of  a  Table.  Instructions  are  generated  to  load  the  accumula¬ 
tor  with  the  contents  of  the  table  name  minus  one. 

4.  Neither  Single  Letter  nor  NENT  of  a  Table.  Instructions  are  gen¬ 
erated  to  load  the  accumulator  with  the  temporary  register  or  the 
variable.  If  there  is  a  constant  associated  with  this  variable, 
it  is  added  to  or  subtracted  from  the  contents  of  the  accumulator. 
An  exit  is  made  from  CINSUB. 

3.8  ciom 

Procedures  CINPT  and  COUTT  use  CIOTBL  when  the  dataname  portion  of  the  input  or 
output  statement  is  a  table.  CIOTBL  is  primarily  concerned  with  generating  in¬ 
structions  to  store  the  starting  and  terminating  address  of  the  transfer  in  the 
calling  sequence. 

Description.  CIOTBL  sets  an  index  equed  to  DILF($1$). 

.1.  Double-Subscripted  Table.  The  closed  routine  CENTSZ  is  used  to 
check  for  a  parallel  table  with  more  than  one  word  per  entry.  If 
the  table  is  parallel  and  has  more  than  one  word  per  entry,  an 
exit  is  made  from  CIOTBL. 

Item  OPS  is  set  equal  to  three  and  procedure  CINSUB  is  used  to 
generate  instructions  to  load  the  value  of  the  second  subscript 
into  the  accumulator.  Instructions  cure  generated  to  increase 
the  second  subscript  by  one  and  store  it  in  TEMPS+1. 

Item  OPS  is  set  equed  to  one  and  procedure  CINSUB  generates  in¬ 
structions  to  load  the  accumulator  with  the  value  of  the  first 
subscript.  An  instruction  is  prepared  to  store  the  first  sub¬ 
script  into  TEMPS-t-2. 

If  the  table  has  only  one  word  per  entry,  instructions  are  gener¬ 
ated  to  load  the  accumulator  with  the  value  of  the  first  subscript 
(TEMPS42).  If  the  table  (serial)  has  more  than  one  word  per  en¬ 
try,  instructions  are  generated  to  multiply  the  number  of  words 
per  entry  by  the  value  of  the  first  subscript.  Instructions  are 
generated  to  increase  the  contents  of  the  accumulator  (words  per 
entry  times  the  number  of  entries)  by  the  starting  address  of  the 
table  emd  to  store  the  result  In  the  starting  address  portion  of 
the  appropriate  input  or  output  calling  sequence. 

If  the  table  has  only  one  word  per  entry,  instructions  are  gener¬ 
ated  to  load  the  accumulator  with  the  value  of  the  second  sub¬ 
script  plus  one  (TEMPS+I).  If  the  table  (serial)  has  more  than 
one  word  per  entry,  Instructions  are  generated  to  multiply  the 
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nuiibcr  of  words  par  entry  by  the  value  of  the  second  subscript 
plus  one  (iBIP&t-l),  Instructions  are  generated  to  increase  the 
contents  of  the  accumulator  by  the  starting  address  of  the  table 
gnd  to  store  the  result  in  the  teminating  address  portion  of  the 
appropriate  input  or  output  calling  sequence 

An  exit  is  made  from  CIOIBL. 

2.  Single  "Subscripted  Table.  CUTSZ  is  used  to  check  for  a  parallel 
table  with  more  than  one  word  per  entry.  If  the  table  is  parallel 
with  more  than  one  word  per  entry,  an  exit  is  made  front  CIOIBL. 

Item  OPS  is  set  equal  to  one  and  procedure  CUSUB  generates  in¬ 
structions  to  load  the  accumulator  with  the  value  of  the  sub¬ 
script.  Instructions  are  generated  to  multiply  the  subscript 
value  by  the  number  of  words  per  entry,  to  increase  the  result  by 
the  starting  address  of  the  table,  and  then  to  store  the  final 
result  in  the  starting  address  portion  of  the  appropriate  input 
or  output  calling  sequence. 

Instructions  are  generated  to  increase  the  starting  address  (now 
in  the  aecumulator)  by  the  number  of  words  to  be  transferred  and 
to  store  this  value  in  the  temlnatlng  address  portion  of  the 
appropriate  input  or  output  calling  sequence. 

An  exit  is  made  from  CIOHL- 

3.  Table  Wlthwt  Subscript.  Instructions  are  generated  to  load  the 
starting  adliress  into  the  accumulator  and  then  to  store  this  value 
into  starting  address  portion  of  the  appropriate  calling  sequence. 

If  this  table  is  a  variable  length  serial  or  parallel  (one  word 
per  entry)  table,  instructions  are  generated  to  miltiply  the  num¬ 
ber  of  woxds  per  entry  by  tablename  minus  one  (im),  to  increase 
this  result  by  the  starting  address,  and  to  store  the  final  result 
la  the  terminating  address  portion  of  the  appropriate  calling  se¬ 
quence  . 

If  this  table  is  a  rigid  length  table  or  a  variable  length  paral¬ 
lel  teble  with  more  than  one  word  per  entry,  the  total  number  of 
words  to  be  transferred  (number,  of  entries  multiplied  by  the  num¬ 
ber  of  words  per  entzy)  are  calculated.  Instructions  are  gener¬ 
ated  to  add  this  total  to  the  accumulator  and  to  store  the  result 
in  the  temlnatlng  portion  of  the  appropriate  library  routine. 

An  exit  is  made  from  CIOTBL. 
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4.  Error .  If  the  tablename  is  not  subscripted  by  zero,  one,  or  two 
subscripts,  an  error  message  is  written  onto  the  debug  tape  and 
error  indicator  item  ERR  is  set.  An  exit  is  made  from  CIOTBL. 

3.9  CTBLI 

This  procedure  is  used  by  CINPT  and  COUTT  to  prepare  instructions  to  generate 
the  starting  and  terminating  addresses  of  Hollerith  or  STC  table  items  and  to 
store  them  in  the  correct  input  or  output  calling  sequence. 

Description.  CTBLI  sets  an  index  to  value  of  DILF($1$)  to  save  space  and  time. 
If  the  item  is  not  Hollerith  or  STC,  or  if  it  is  Hollerith  or  STC  but  does  not 
begin  in  byte  zero  and  occupy. an  integrtCt  number  at  worda,  OPS  is  set  to  zero 
and  ah  exit  is  mafle  CTBLI. 

CINSDB  is  cadled  to  generate  instructions  to  load  the  value  of  the  subscript 
into  the  accumulator.  If  the  item  is  located  in  a  serial  table,  instructions 
are  generated  to  multiply  the  accumulator  by  the  number  of  words  per  entry. 
Instructions  are  generated  to  increase  the  accumulator  by  the  starting  address 
of  the  item's  table  and  to  store  the  result  in  the  starting  address  portion  of 
the  calling  sequence.  Then  the  instructions  are  generated  to  increase  the 
starting  address  (accumulator)  by  the  number  of  words  the  item  occupies  and  to 
store  this  result  in  the  terminating  address  portion  of  the  calling  sequence. 
OPS  is  set  to  five  and  an  exit  is  made  from  CTBLI. 

3.10  CHOSU 

This  procedure  prepares  the  starting  and  terminating  addresses  for  the  appro¬ 
priate  input  or  output  library  routine  calling  sequence  when  the  dataname  is  a 
simple  item  or  a  constcmt. 

Description.  If  the  dataname  is  not  a  constant  or  a  sinqple  item,  an  error  is 
written  on  the  debug  tape  and  an  exit  is  made  from  CNOSC.  The  starting  address 
is  set  with  the  address  of  the  dataname.  The  terminating  address  is  set  to  the 
address  of  the  dataname  plus  one,  except  for  literals.  The  terminating  address 
for  literals  is  set  to  the  starting  address  plus  the  number  of  words  which  the 
literal,  occupies. 

3.11  CRTJ 

This  procedure  prepares  a  retijurn  Jump  to  a  library  routine.  OPN  is  set  to  RTJ, 
MTC  is  set  to  nine,  and  SKDCXr  is  c8Q.led.  All  other  parameters  for  SKDOO  are 
set  before  CRTJ  is  called. 


1  SDC  Technical  Memorandum,  TM-WD-555/ 302/00,  1  June  I962 
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3.12  CSET 

This  procedure  prepares  the  second  half  of  the  first  word  of  many  of  the  cal¬ 
ling  sequences  for  the  magnetic  tape  library  routine.  Only  input  channels  are 
considered  by  this  procedure.  The  operation  code  is  set  to  the  channel  number 
times  eight  plus  the  l607  unit  number.  The  bterm  is  set  to  the  tape  unit  num¬ 
ber. 

3.13  CSTAT 

This  procedure  is  used  in  conjunction  with  CSTUS  to  prepare  instructions  for 
library  routine  calling  sequences  (for  libsaxar.^roatiiMs  that  check  the  status  of 
magnetic  tapes).  CSTAT  prepares  instructions  for  placing  tape  identification 
information  in  the  accumulator.  This  information  is  considered  to  be  input 
data.  If  the  file  that  is  Interrogated  is  an  output  file,  the  tape  identifica¬ 
tion  information  is  changed  accordingly.  This  information  is  then  shifted  to 
the  proper  portion  of  the  word  to  await  placement  in  the  calling  sequence. 

3.1^^  CSTUS 

This  procedure  is  used  in  conjunction  with  CSTAT  to  set  up  the  Instructions 
for  calling  sequences  to  library  routines  that  check  the  status  of  magnetic 
tapes.  CSTUS  sets  up  an  instruction  to  store  the  accumulator  (which  now  con¬ 
tains  the  first  word  of  the  calling  sequence)  into  the  next  location.  CSTUS 
also  reserves  the  word  that  is  to  receive  the  first  word  of  the  calling  se¬ 
quence  . 

3.15  I'O 

This  procedure  handles  the  PCS  modifier,  OPEN  IHPUT,  OPEN  OUTPUT,  SHUT  IHPUT, 
SHUT  OUTPUT  and  all  status  checks  that  involve  peripheral  equipment. 

Description.  The  dictionary  channel  of  the  first  operand  is  loaded  into  a  sub¬ 
script  to  Increase  the  efficiency  of  the  compiler. 

1.  POS  Modifier.  If  the  second  operand  is  zero,  CBHGT  is  cabled  and 
then  a  Junp  to  CBMO)'  is  generated.  CSET,  which  will  set  the 
lower  half  of  the  first  word  of  the  calling  sequence,  is  cabled. 

If  the  file  required  is  not  the  first  file  on  the  tape,  the  cad- 
ling  sequence  for  CSKPF'  is  generated. 

If  the  second  operand  is  not  zero,  the  cadllng  sequence  is  gener¬ 
ated  for  either  CBACK'  or  CSKEP',  depending  on  whether  I'O  was 
entered  from  JSUB  (subtract  operator)  or  from  JADD  (add  operator). 


An  exit  is  mawle  from  I'O. 
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2.  OPEN  mPUT. 

a.  Tape.  CBRGT  is  called  and  then  instructions  are  generated  to 
set  hardvare  identifier  in  an  indicator.  The  ceCLling  sequence 
for  CRWKD’  is  generated.  If  this  is  not  the  first  file  on 
the  tape,  the  appropriate  calling  sequence  for  CSKPP'  is  gen¬ 
erated.  If  a  dataname  is  included  in  the  statement,  CINPT  is 
called. 

An  exit  is  made  from  I'O. 

b.  Clock.  Instructions  are  generated  to  clear  and  start  the 
clock.  If  a  dataname  is  included  in  the  statement,  CINPT  is 
called. 

An  exit  is  made  from  I'O. 

3.  OPEN  OUTPUT. 

a.  Tape.  If  this  is  the  first  time  this  file  has  been  "opened" 
or  if  it  is  the  first  file  on  the  tape,  instructions  are  gen¬ 
erated  to  set  the  hardveure  identifier  in  the  proper  indicator. 
The  calling  sequence  for  CRWND'  is  generated.  If  a  dataname 
is  included  in  the  statement,  COUTT  is  called. 

An  exit  is  made  from  I'O. 

b.  Printer.  Instructions  are  generated  for  page  ejection.  If 
dataname  is  Included  in  the  statement,  COUTT  is  called. 

An  exit  is  made  fron  I'O. 

c.  Clock.  If  a  dataname  is  not  Included  in  the  statement,  in¬ 
structions  ure  generated  to  cleau*  auid  activate  the  clock. 

If  dataname  is  included,  COUTT  Is  called  and,  upon  return 
from  COUTT,  an  Instruction  is  generated  to  activate  the  clock. 

An  exit  is  made  from  I'O. 

4.  SHUT  INHfT.  If  a  dataname  is  included  in  the  statement,  CINPT  is 
called.  If  the  hardware  device  is  the  clock,  an  instruction  to 
stop  the  clock  is  generated. 

An  exit  is  made  frcm  I'O. 
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5.  SHOT  OOTPOT.  If  a  dataname  is  included  in  the  statement,  COOTT 
is  called. 

a.  Tape.  The  calling  sequence  for  CWEOP'  is  generated  and  then 
an  exit  is  made  from  I'O. 

b.  Clock .  An  instruction  is  generated  to  stop  the  clock  and 
then  an  exit  Is  made  from  I'O. 

6.  Status  Cheeks. 

a.  Tape.  When  the  check  is  for  ready,  parity  or  buffer  length 
error,  instructions  are  generated  and  CSTAT  and  CSTUS  are 
called  to  obtain  the  calling  sequences  for  CREDY',  CPRTY', 
CWERR'  and  CBLTR'*  The  instructions  that  are  generated  corn- 
pute  the  calling  sequence  to  tiie  appropriate  library  Routine. 
Vfhen  the  check  is  for  end>of>file  or  end-of-tape,  no  computa¬ 
tion  is  required.  CRTJ  and  CSJET  are  used  to  generate  the  call 
for  CENDP'  and  CENDT’,  respectively. 

Depending  on  whether  EQ  or  NQ  was  specified  in  the  statement, 
the  logic  of  the  next  tv(^  words  of  the  calling  sequence  will 
be  jreversed. 

An  exit  is  made  from  I’O. 

b.  Card  Reeuier.  Instructions  eu:e  generated  to  exit  "on  ready" 

or  '*not  ready, "  depending  on  whether  "ready"  or  "end-of-cards " 
is  specified  in  the  statement.  T1i<b  transfer  is  generated 
after  considering  the  use  of  EQ  or  NQ  in  the  statement. 

An  exit  is  made  from  I'O. 

c.  Printer  and  Punch.  Instructions  are  generated  to  exit  "on 
ready."  Also,  the  true  transfer  is  generated  after  consider¬ 
ing  the  use  of  EQ  or  NQ  in  the  statement. 

An  exit  is  made  from  I'O. 

d.  Paper  Tape  Peader  and  Punch.  If  NQ  is  specified  in  the  state¬ 
ment,  an  exit  is  made  from  I'O.  The  true  transfer  is  gener¬ 
ated. 


An  exit  Is  rale  from  I'O. 


1  September  1962 


32 

(Last  Page) 


TM-WD-555/30V00 


e.  Typevrlter .  The  appropriate  instructions  are  generated  to 
check  for  ceurrieige  return,  lower  case,  or  ready,  depending 
on  the  statement.  RQ  is  ignored  when  specified  with  ready, 
but  for  all  other  cases,  the  true  transfer  is  generated. 

An  exit  is  made  fran  I'O. 
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